home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Toolbox
/
Visual Basic Toolbox (P.I.E.)(1996).ISO
/
printing
/
vsview17
/
fview.frm
< prev
next >
Wrap
Text File
|
1994-09-01
|
15KB
|
453 lines
VERSION 2.00
Begin Form fviewport
BackColor = &H00C0C0C0&
BorderStyle = 3 'Fixed Double
Caption = "ViewPort"
ClientHeight = 6615
ClientLeft = 315
ClientTop = 345
ClientWidth = 8850
ControlBox = 0 'False
Height = 7080
Left = 225
LinkTopic = "Form1"
MinButton = 0 'False
ScaleHeight = 6615
ScaleWidth = 8850
Top = -30
Width = 9030
Begin vsViewPort vsViewPort4
BackColor = &H00C0C0C0&
Height = 3060
Left = 210
Top = 2940
VirtualHeight = 7300
VirtualWidth = 6800
Width = 6210
Begin Frame Frame1
BackColor = &H00C0C0C0&
Caption = "Mailing Address"
ForeColor = &H00800000&
Height = 1800
Index = 1
Left = 210
TabIndex = 35
Top = 2100
Width = 6060
Begin TextBox Text1
Height = 285
Index = 12
Left = 1680
TabIndex = 15
Top = 1380
Width = 4215
End
Begin TextBox Text1
Height = 285
Index = 11
Left = 4845
TabIndex = 16
Top = 1110
Width = 1050
End
Begin TextBox Text1
Height = 285
Index = 10
Left = 4290
TabIndex = 18
Top = 1110
Width = 570
End
Begin TextBox Text1
Height = 285
Index = 8
Left = 1680
TabIndex = 19
Top = 1110
Width = 2625
End
Begin TextBox Text1
Height = 540
Index = 7
Left = 1680
TabIndex = 20
Top = 585
Width = 4215
End
Begin TextBox Text1
Height = 285
Index = 6
Left = 1680
TabIndex = 21
Top = 315
Width = 4215
End
Begin Label Label1
BackStyle = 0 'Transparent
Caption = "Country"
Height = 225
Index = 7
Left = 105
TabIndex = 31
Top = 1440
Width = 1065
End
Begin Label Label1
BackStyle = 0 'Transparent
Caption = "City, State ZIP"
Height = 225
Index = 6
Left = 105
TabIndex = 32
Top = 1155
Width = 1305
End
Begin Label Label1
BackStyle = 0 'Transparent
Caption = "Address"
Height = 225
Index = 4
Left = 105
TabIndex = 33
Top = 630
Width = 1065
End
Begin Label Label1
BackStyle = 0 'Transparent
Caption = "Name"
Height = 225
Index = 3
Left = 105
TabIndex = 34
Top = 315
Width = 1065
End
End
Begin Frame Frame1
BackColor = &H00C0C0C0&
Caption = "Shipping Address"
ForeColor = &H00800000&
Height = 1800
Index = 0
Left = 210
TabIndex = 22
Top = 210
Width = 6060
Begin TextBox Text1
Height = 285
Index = 0
Left = 1680
TabIndex = 28
Top = 315
Width = 4215
End
Begin TextBox Text1
Height = 540
Index = 1
Left = 1680
TabIndex = 27
Top = 585
Width = 4215
End
Begin TextBox Text1
Height = 285
Index = 2
Left = 1680
TabIndex = 26
Top = 1110
Width = 2625
End
Begin TextBox Text1
Height = 285
Index = 3
Left = 4290
TabIndex = 25
Top = 1110
Width = 570
End
Begin TextBox Text1
Height = 285
Index = 4
Left = 4845
TabIndex = 24
Top = 1110
Width = 1050
End
Begin TextBox Text1
Height = 285
Index = 5
Left = 1680
TabIndex = 23
Top = 1380
Width = 4215
End
Begin Label Label1
BackStyle = 0 'Transparent
Caption = "Name"
Height = 225
Index = 0
Left = 105
TabIndex = 12
Top = 315
Width = 1065
End
Begin Label Label1
BackStyle = 0 'Transparent
Caption = "Address"
Height = 225
Index = 1
Left = 105
TabIndex = 13
Top = 630
Width = 1065
End
Begin Label Label1
BackStyle = 0 'Transparent
Caption = "City, State ZIP"
Height = 225
Index = 2
Left = 105
TabIndex = 14
Top = 1155
Width = 1305
End
Begin Label Label1
BackStyle = 0 'Transparent
Caption = "Country"
Height = 225
Index = 5
Left = 105
TabIndex = 17
Top = 1440
Width = 1065
End
End
Begin Frame Frame2
BackColor = &H00C0C0C0&
Caption = "&Notes"
Height = 2640
Left = 210
TabIndex = 29
Top = 4095
Width = 6105
Begin TextBox Text1
BackColor = &H0080FFFF&
Height = 2115
Index = 9
Left = 210
TabIndex = 30
Top = 315
Width = 5685
End
End
End
Begin vsInForm VSInForm1
BarColor = &H00C0C0C0&
BarColorInactive= &H00C0C0C0&
BarHeight = 36
BarStyle = 3 'Raised
ButtonsLeft = 0 '0
ButtonsRight = 1 '1
CapAlign = 1 'Left Center
CapColor = &H00C0C0C0&
CapColorInactive= &H00C0C0C0&
CapMultiLine = -1 'True
CapStyle = 1 'Raised
Caption = " Virtual Views on your screen"
ClipMon = -1 'True
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
FrameColor = &H00C0C0C0&
FrameColorInactive= &H00C0C0C0&
FrameCorners = 0 'False
FrameSizing = 0 'None
FrameStyle = 3 'Raised Form
FrameWidth = 12
Left = 0
MinHeight = 870
MinWidth = 3500
PictRight0 = FVIEW.FRX:0000
Top = 3045
End
Begin vsViewPort vsViewPort3
BackColor = &H00808080&
Height = 960
Left = 6615
Top = 3255
VirtualHeight = 0
VirtualWidth = 3270
Width = 2010
Begin PictureBox Picture2
BackColor = &H00808080&
BorderStyle = 0 'None
Height = 540
Index = 4
Left = 2625
Picture = FVIEW.FRX:00D2
ScaleHeight = 540
ScaleWidth = 540
TabIndex = 0
Top = 105
Width = 540
End
Begin PictureBox Picture2
BackColor = &H00808080&
BorderStyle = 0 'None
Height = 540
Index = 3
Left = 1995
Picture = FVIEW.FRX:03D4
ScaleHeight = 540
ScaleWidth = 540
TabIndex = 1
Top = 105
Width = 540
End
Begin PictureBox Picture2
BackColor = &H00808080&
BorderStyle = 0 'None
Height = 540
Index = 2
Left = 1365
Picture = FVIEW.FRX:06D6
ScaleHeight = 540
ScaleWidth = 540
TabIndex = 2
Top = 105
Width = 540
End
Begin PictureBox Picture2
BackColor = &H00808080&
BorderStyle = 0 'None
Height = 540
Index = 1
Left = 735
Picture = FVIEW.FRX:09D8
ScaleHeight = 540
ScaleWidth = 540
TabIndex = 11
Top = 105
Width = 540
End
Begin PictureBox Picture2
BackColor = &H00808080&
BorderStyle = 0 'None
Height = 435
Index = 0
Left = 105
Picture = FVIEW.FRX:0CDA
ScaleHeight = 435
ScaleWidth = 435
TabIndex = 10
Top = 105
Width = 435
End
End
Begin vsViewPort vsViewPort2
BackColor = &H00808080&
Height = 2640
Left = 6615
Top = 210
VirtualHeight = 3900
VirtualWidth = 0
Width = 2010
Begin CommandButton Command1
BackColor = &H00808080&
Caption = "Other"
Height = 540
Index = 5
Left = 210
TabIndex = 9
Top = 3255
Width = 1380
End
Begin CommandButton Command1
BackColor = &H00808080&
Caption = "Information"
Height = 540
Index = 4
Left = 210
TabIndex = 8
Top = 2625
Width = 1380
End
Begin CommandButton Command1
BackColor = &H00808080&
Caption = "Hotels"
Height = 540
Index = 3
Left = 210
TabIndex = 7
Top = 1995
Width = 1380
End
Begin CommandButton Command1
BackColor = &H00808080&
Caption = "Language"
Height = 540
Index = 2
Left = 210
TabIndex = 6
Top = 1365
Width = 1380
End
Begin CommandButton Command1
BackColor = &H00808080&
Caption = "Population"
Height = 540
Index = 1
Left = 210
TabIndex = 5
Top = 735
Width = 1380
End
Begin CommandButton Command1
BackColor = &H00808080&
Caption = "Area"
Height = 540
Index = 0
Left = 210
TabIndex = 4
Top = 105
Width = 1380
End
End
Begin vsViewPort vsViewPort1
BackColor = &H00808080&
Height = 2640
Index = 0
Left = 210
Top = 210
VirtualHeight = 0
VirtualWidth = 0
Width = 6210
Begin PictureBox Picture1
Height = 4815
Index = 0
Left = 135
Picture = FVIEW.FRX:0FDC
ScaleHeight = 4785
ScaleWidth = 7185
TabIndex = 3
Top = 75
Width = 7215
End
End
End
Option Explicit
Sub Form_Load ()
VSinform1.CustomFrame = True
VSViewPort1(0).VirtualWidth = Picture1(0).Width + 200
VSViewPort1(0).VirtualHeight = Picture1(0).Height + 200
End Sub
Sub VSInForm1_ClickRButton (Button As Integer)
Unload Me
End Sub
